home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 3565-4.665 / dmg-4180 / source.4u / riley.ben / v_scroll.bas (.txt) < prev   
Atari STOS Basic  |  1987-04-21  |  22KB  |  89 lines
  1. 10 REM ####################################################################
  2. 100 REM 
  3. 110 REM < START UP >
  4. 120 REM 
  5. 130 FADE
  6. 140 HIDE
  7. 150 POKE
  8. 160 REM 
  9. 170 REM < DEFINE A FEW VARIABLES >
  10. 180 REM 
  11. 190 VARNAME
  12. 20 REM >                                                                  <
  13. 200 DIM
  14. 210 VARNAME
  15. 220 VARNAME
  16. 230 REM 
  17. 240 REM < READY A SCREEN >
  18. 250 REM 
  19. 260 ERASE
  20. 270 RESERVE
  21. 280 FILL
  22. 290 REM 
  23. 30 REM >           The MEGA Inter-lace Vertical Text Scroller             <
  24. 300 REM < PLACE CHARACTERS ON IT >
  25. 310 REM 
  26. 320 VARNAME
  27. 330 VARNAME
  28. 340 FOR
  29. 350 VARNAME
  30. 360 VARNAME
  31. 370 SPRITE
  32. 380 UPDATE
  33. 390 WAIT VBL
  34. 40 REM >                 written in STOS by Ben of FRS                    <
  35. 400 SCREEN COPY
  36. 410 VARNAME
  37. 420 IF
  38. 430 NEXT
  39. 440 SCREEN COPY
  40. 450 FILL
  41. 460 CLS
  42. 470 SPRITE
  43. 480 WAIT VBL
  44. 490 LOKE
  45. 50 REM >            and remember to always eat your greens !              <
  46. 500 AUTO BACK
  47. 510 REM 
  48. 520 REM < THIS IS THE TEXT THAT WILL BE SCROLLED >
  49. 530 REM < IT MUST BE IN BLOCKS OF 10 CHARACTERS! >
  50. 540 REM 
  51. 550 VARNAME
  52. 560 VARNAME
  53. 570 VARNAME
  54. 580 VARNAME
  55. 590 VARNAME
  56. 60 REM >                       FRS r the best                             <
  57. 600 VARNAME
  58. 610 VARNAME
  59. 620 VARNAME
  60. 630 VARNAME
  61. 640 VARNAME
  62. 650 VARNAME
  63. 660 VARNAME
  64. 670 REM 
  65. 680 REM < THIS IS MY SCROLL ROUTINE , HOPE YOU LIKE IT ! >
  66. 690 REM 
  67. 70 REM >               v1.02 { Lot better when compiled }                 <
  68. 700 LOGIC
  69. 710 VARNAME
  70. 720 FOR
  71. 730 VARNAME
  72. 740 FOR
  73. 750 VARNAME
  74. 760 IF
  75. 770 WAIT VBL
  76. 780 FOR
  77. 790 VARNAME
  78. 80 REM >                                                                  <
  79. 800 VARNAME
  80. 810 IF
  81. 820 SCREEN COPY
  82. 830 NEXT
  83. 840 SCREEN COPY
  84. 850 SCREEN SWAP
  85. 860 NEXT
  86. 870 NEXT
  87. 880 GOTO
  88. 90 REM #######################=-> 13/2/1993 <-=############################
  89.